home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh16a.d64 / achse l7 (.txt) next >
Commodore BASIC  |  1995-03-30  |  376b  |  18 lines
  1. 10 XU=-5 : XO=5 : YU=-5 : YO=5
  2. 20 SYS 37173,"INT(X)",XU,XO,YU,YO
  3. 30 :
  4. 40 YP=ABS(YO/(YO-YU))*199
  5. 50 FOR XV=XU TO XO
  6. 60 : XP=ABS((XV-XU)/(XO-XU))*319
  7. 70 : FOR I=-3 TO 3 : SYS 38144,XP,ABS(YP+I) : NEXT I
  8. 80 NEXT XV
  9. 90 :
  10. 100 XP=ABS(XU/(YO-YU))*319
  11. 110 FOR YH=XU TO XO
  12. 120 : YP=ABS((YO-YH)/(YO-YU))*199
  13. 130 : FOR I=-3 TO 3 : SYS 38144,ABS(XP+I),YP : NEXT I
  14. 140 NEXT YH
  15. 150 :
  16. 160 GETZ$ : IF Z$="" THEN 160
  17. 170 SYS40211
  18.